Option Explicit
Sub C_Sample018()
    Dim myRng  As Range
    Dim myBrds As Borders
    Dim i      As Long
    Set myRng = Range("A1:B3")				'Nxs
    Set myBrds = myRng.Borders
    'ǳƨ즹
    MsgBox "Rؽu"
    For i = xlDiagonalDown To xlInsideHorizontal
        myBrds(i).LineStyle = xlNone
    Next
    Set myBrds = Nothing					'
    Set myRng = Nothing
End Sub

